home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
bipl.zip
/
PROCS.ZIP
/
IVALUE.ICN
< prev
next >
Wrap
Text File
|
1992-11-24
|
569b
|
27 lines
############################################################################
#
# File: ivalue.icn
#
# Subject: Procedures to convert string to Icon value
#
# Author: Ralph E. Griswold
#
# Date: November 24, 1992
#
###########################################################################
link escape
procedure ivalue(s)
return (
2(s == "", &null) |
numeric(s) | {
s ? {
2(="\"", escape(tab(-1)), ="\"") |
2(="'", cset(escape(tab(-1))), ="'")
}
}
)
end